Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Assess.Dxr/Internal_46_fix a string.ls

Text File | 1998-04-24 | 470 b | 14 lines

on makeLowerCase pString
  set LowerString to EMPTY
  set offset to charToNum("a") - charToNum("A")
  set CharCount to the number of chars in pString
  repeat with index = 1 to CharCount
    set Letter to char index of pString
    if (charToNum(Letter) >= charToNum("A")) and (charToNum(Letter) <= charToNum("Z")) then
      set Letter to numToChar(charToNum(Letter) + offset)
    end if
    set LowerString to LowerString & Letter
  end repeat
  return LowerString
end